Hola
mira una vez tuve q hacer algo similar
los datos q son de tipo hora > 24, use un dato tipo String
aqui esta la funcion q hice.
Esta función suma dos horas
las horas las paso a minutos para poder sumar todo y al final los minutos
los paso a HH:mm
esta función no esta con segundos puesto a q no necesitaba los segundos.
pero tu eres programador y la puedes modificar para sumar tambien los segundos.
Espero les Sirva.
Function SumaHoras(Hora1 As String, Hora2 As String) As String
Dim H1 As Long
Dim H2 As Long
Dim M1 As Integer
Dim M2 As Integer
Dim P As Integer
Dim P2 As Integer
Dim Hf As Long
Dim Mf As Long
P = InStr(1, Hora1, ":") ' guardo la posicion del ":" de la hora 1
P2 = InStr(1, Hora2, ":") ' guardo la posicion del ":" de la hora 2
H1 = Mid(Hora1, 1, P - 1) 'tomo la hora 1
H2 = Mid(Hora2, 1, P2 - 1) 'tomo la hora 2
M1 = Mid(Hora1, P + 1, Len(Hora1)) ' tomo los seg. de la hora 1
M2 = Mid(Hora2, P2 + 1, Len(Hora2))' tomo los seg. de la hora 2
Hf = (H1 + H2)' sumo las horas
Hf = Hf * 60 ' paso las horas a minutos
Mf = M1 + M2 ' sumo los minutos
Mf = Hf + Mf ' sumo el total minutos
Hf = Fix(Mf / 60) ' obtengo las horas totales de las horas
Mf = Mf - (Hf * 60) ' obtengo los minutos
' finalmente muestro el formato HH:mm
SumaHoras = Format(Hf, "0#") & ":" & Format(Mf, "00")
'ojo de esta forma podemos mostrar horas como por ejemplo:
300:56
879:36
etc..
End Function
Saludos a todos...